home *** CD-ROM | disk | FTP | other *** search
/ Old Testament Foundatiosn with Philip Yancey / Old Testament Foundatiosn with Philip Yancey - Disc 2.iso / pc / data / m29.dir / 00034.ls < prev    next >
Encoding:
Text File  |  1996-09-09  |  657 b   |  19 lines
  1. on mouseDown
  2.   global gSaveItemsDirectoryPath, gOnIBM, gSaveFile, gMyPath, gMyText, gReferenceArticle
  3.   set the moveableSprite of sprite 23 to 0
  4.   if pressLessonButton(23) then
  5.     pupSprites(1, 48, 0)
  6.     identifyPlatform()
  7.     if gOnIBM then
  8.       set gMyPath to gSaveItemsDirectoryPath & "\"
  9.     else
  10.       set gMyPath to gSaveItemsDirectoryPath & ":"
  11.     end if
  12.     set gMyPath to gMyPath & gReferenceArticle
  13.     set gMyText to the text of field "article"
  14.     saveMyFile()
  15.     alert("The BibleInteract document " & QUOTE & gReferenceArticle & QUOTE & " has been saved in your " & QUOTE & "SAVEFILE" & QUOTE & " directory.")
  16.   end if
  17.   updateStage()
  18. end
  19.